Celestin Apprentice 4/Apprentice-Release4.iso/Languages/CW MacMindy 1.4/Examples/Libraries/beep.dyl

Text File | 1995-11-14 | 567 b | 28 lines | [TEXT/CWIE]

library:    BeepLib
module:        Beep
author:        Patrick C. Beard <[e-mail]>

/*
    beep.dyl

    This version demonstrates using a separately compiled library.
 */

define library BeepLib
    use Dylan;                // use the Dylan library.
    export Beep;            // provide the Beep module.
end library BeepLib;

define module Beep
    use Dylan;                // all programs need this.
    use Cheap-IO;            // imports "puts & putc"
    export beep;            // make beep available to the world.
end module Beep;

// an exported method.

define method beep ()
    puts("*beep*\n");
    putc(as(<character>, 7));
end method;